home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Home CD Sampler / Microsoft Home CD Sampler.iso / multi / explora / xpl_gr.exe / xpl_gr.DXR / 00002.ls next >
Encoding:
Text File  |  1995-09-28  |  704 b   |  23 lines
  1. on exitFrame
  2.   global gMovPath, dirType
  3.   set the searchPath to []
  4.   if machineType() < 256 then
  5.     set dirType to ":"
  6.   else
  7.     set dirType to "\"
  8.   end if
  9.   if the movieName contains "_" then
  10.     if the movieName contains "." then
  11.       set tempIntl to chars(the movieName, offset("_", the movieName), offset(".", the movieName) - 1)
  12.     else
  13.       set tempIntl to chars(the movieName, offset("_", the movieName), length(the movieName))
  14.     end if
  15.     if getNthFileNameInFolder(the pathName & "snds" & tempIntl, 1) <> EMPTY then
  16.       append(the searchPath, the pathName & "snds" & tempIntl)
  17.     else
  18.       append(the searchPath, the pathName & "sounds")
  19.     end if
  20.     go(1, "xpleuro")
  21.   end if
  22. end
  23.